(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      6111,        180]
NotebookOptionsPosition[      5612,        164]
NotebookOutlinePosition[      5969,        180]
CellTagsIndexPosition[      5926,        177]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  SqrtBox[
   RowBox[{"1", "-", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "-", "1"}], ")"}], "2"]}]]}], "\n", 
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"ArcCos", "[", 
    RowBox[{"1", "-", 
     RowBox[{"Abs", "[", "x", "]"}]}], "]"}], "-", "3"}]}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", "4"}], ",", "4"}], "]"}], ",", 
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "1"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "0.5"}], ",", 
   RowBox[{"Filling", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", "2", "}"}], ",", "Pink"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.798713893899464*^9, 3.798713916162997*^9}, {
  3.798714721002312*^9, 3.7987147686887856`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"593f8bc6-2503-436a-afe5-45bc5383abd6"],

Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["x", "2"], "+", 
        SuperscriptBox["y", "2"], "-", "1"}], ")"}], "3"], "-", 
     RowBox[{
      SuperscriptBox["x", "2"], " ", 
      SuperscriptBox["y", "3"]}]}], "\[LessEqual]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7987148777444344`*^9, 3.798714887375472*^9}, {
  3.7987149236506324`*^9, 3.798714981147415*^9}, {3.79871502781376*^9, 
  3.798715135165846*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"4b82e330-171f-4b43-b433-a116fba0bfc8"],

Cell[BoxData[
 RowBox[{"ContourPlot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["x", "2"]}], "+", 
        SuperscriptBox["y", "2"], "+", 
        SuperscriptBox["z", "2"], "-", "1"}], ")"}], "3"], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["x", "2"], " ", 
       SuperscriptBox["z", "3"]}], "10"], "-", 
     RowBox[{
      SuperscriptBox["y", "2"], " ", 
      SuperscriptBox["z", "3"]}]}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", 
     RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}], ",", 
   RowBox[{"MeshFunctions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"#3", "&"}], ",", 
      RowBox[{"#2", "&"}]}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "50"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
   RowBox[{"MeshShading", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FaceForm", "[", 
         RowBox[{"Cyan", ",", "None"}], "]"}], ",", 
        RowBox[{"FaceForm", "[", 
         RowBox[{"None", ",", "Cyan"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FaceForm", "[", 
         RowBox[{"None", ",", "Cyan"}], "]"}], ",", 
        RowBox[{"FaceForm", "[", 
         RowBox[{"Cyan", ",", "None"}], "]"}]}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7987151576445746`*^9, 3.7987152128258233`*^9}, {
   3.798715297696924*^9, 3.798715308329147*^9}, {3.798715338762638*^9, 
   3.7987154977090693`*^9}, {3.798715636638424*^9, 3.798715672301468*^9}, {
   3.7987158370292964`*^9, 3.798715858756013*^9}, {3.798715892946397*^9, 
   3.7987159122212286`*^9}, {3.79871594383729*^9, 3.7987159719517217`*^9}, 
   3.798716156533331*^9, {3.798716200663275*^9, 3.7987162225159054`*^9}, {
   3.7987162973498955`*^9, 3.79871632213468*^9}, {3.798716370703273*^9, 
   3.798716394213326*^9}, {3.798716427687132*^9, 3.7987164459166145`*^9}, {
   3.798716500709141*^9, 3.7987165107888184`*^9}, {3.798716549125208*^9, 
   3.798716644269168*^9}, {3.798716678696219*^9, 3.798716686464798*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"fd907259-3430-499e-a998-0abe5758931b"]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1730, 53, 114, "Input",ExpressionUUID->"593f8bc6-2503-436a-afe5-45bc5383abd6"],
Cell[2291, 75, 845, 23, 48, "Input",ExpressionUUID->"4b82e330-171f-4b43-b433-a116fba0bfc8"],
Cell[3139, 100, 2469, 62, 120, "Input",ExpressionUUID->"fd907259-3430-499e-a998-0abe5758931b"]
}
]
*)

